-/ U Lie 



AN INTERACTIVE NASTRAN PREPROCESSOR 

By Willi anna W. Smith 
NASA Langley Research Center 


SUMMARY 


This paper describes a Langley Research Center version of NASTRAN Level 
15.1.0 designed to provide the analyst with an added tool for debugging 
massive NASTRAN input data. The program checks all NASTRAN input data cards 
and displays on a CRT scope the graphic representation of the undeformed 
structure. In addition, the program permits the display and alteration of 
input data and allows reexet’ution without physically resubmitting the Job. 
Core requirements cn the CDo 6000 computer are approximately 77 000 octal 
words of central memory. 


INTRODUCTION 


As most NASTRAN users have discovered, there are input data errors made 
in defining a structure which are not illegal tv the system but which will 
produce a rather oddly shaped graphic representation and erroneous analysis. 

It is imperative, therefore, that the structural plotter output be viewed 
before the user can be assured ihat his input data do not displace grid 
points or omit members. For a complex structure, it may be necessary to 
observe the picture from several orientations. 

Motivated by the need for a complete checkout of structure-defining 
input data in the most rapid and efficient manner, development of an inter- 
active type preprocessor was undertaken. Since the computer program described 
in reference 1 was already in existence, the decision was made to adapt it to 
the interacting CDC 250 CRT system. The Interactive NASTRAN Preprocessor 
Level 12.1.0 resulted from this adaptation. The NASTRAN portion has since 
been updated to Level 15.1.0. 

The NASTRAN program and interactive graphic software used in the Inter- 
active NASTRAN Preprocessor are designed to operate on the CDC 6600 computer 
at LRC, but the ideas are applicable to other NASTRAN computers. 


PROGRAM DESCRIPTION 


The following changes were made in the existing computer program (ref. l): 

1. NASTRAN routines' altered: 
description of routines may be found in reference 2. 


PRECEDING PAGE BLANK NOT FILMED 


641 


NAME 

MODIFICATION 

NASTRAN 

Tape 4 declared 

XSEM1 

Added capability of displaying 
message on screen 

IFP1D 

Error "Plot Tape Not A Physical 
Tape" made nonfatal 

SGINOFF 

Plot file written on Tape 4 

XSEM2 

Added capability of displaying 


messages on screen 

Added labeled COMMON block with 
plot loop flag 

Added call to CRTPLOT subroutine 

Added statement to change a 
DMAP instruction parameter if 
plot loop flag set 

PLOT Test for physical tape ignored 

PROCES Added labeled COMMON block to 

hold view angles for display 
and alteration 

Add statements to save and 
restore view angles 

LD50 Additions made to allow looping 

through PLTSET and PLOT instruc- 
tions if angles altered and 
reexecutlon requested (appendix 
A) 

2. Subroutine CRTPLOT (appendix B) was coded to read the NASTRAN General 
Purpose Plotter output file and translate it for display on the CDC 250 CRT 
terminal (fig. l). 

p 

3. Interactive graphic routines added to program: 

SEMSAGE (same as MESAGE) RSHFT 

CDC250 ADVERSE 


o 

See Langley Research Center Computer Programing Manual, Vol. II, Sections 

3.2 and 3.11. 
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NEXT 


PLT250 

LODTBL 

DECOD3 

DECODU 

HOGWASH 

WARTHOG 

SCREEN 

PLTOOO 

KEYBORD 

CRT250 

SPCMAT 

KGLER 

LOADADR 

CALPLT 

WHERE 

ENCOD2 

STRCALL 


SPACE (same as PACK) 

SLOCATE (same as LOCATE) 

UNPK 

CNTRLN 

CREATEP 

DECOD1 

DEC0D2 

DROUTE 

EXOR 

103 

NOTATE 

PLOTSW 

PLT9999 

TRUNCL 

SAVPLOT 

XHIT 

SCAN 


4. Modifications were made in the graphic routines where data statements 
were used to enter values for variables in labeled COMMON. Restrictions in 
the CDC Linkage Editor necessitated replacing the data statements with a 
Block Data subprogram. 

5. Overlay structure (appendix C) was adjusted to incorporate graphic 
routines and subroutine CRTFLOT, which were added. 


CAPABILITIES OF THE INTERACTIVE NASTRAN PREPROCESSOR 


The Interactive NASTRAN Preprocessor has the following capabilities: 
1. Analyzes all input data. 
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2. Displays the graphic representation of the undeformed structure on 
the CDC 250 CRT Scope. 

3. The alphanumeric keyboard J on the CRT console provides a means for 
displaying the input and altering the input data. 

1*. Loops through the PLTSET and PLOT modules when only the view angle 
is altered are accomplished within the DMAP sequence of instructions. The 
program EDIT 4 initiates restarts when other input data are changed. 

5. The CRT function keyboard has such options as (a) positive and 
negative magnification of the total display or a part of the display; (b) 
recording the plot vector file for postprocessing permanent hard copies ; and 
(c) producing nonpermanent hard copies on a connected hard copy unit. 

6. Executable in approximately 77 000 octal words of central memory. 


LIMITATIONS OP THE INTERACTIVE NASTRAN PREPROCESSOR 
The Interactive NASTRAN Preprocessor has the following limitations: 

1. Operational on CDC 6000 Computer complex at LRC; however ideas are 
applicable to other NASTRAN computers. 

2. Displacement approach must be used. 

3. Does not contain NASTRAN checkpoint or restart capabilities. 

U. No punch output available. 

5. Alterations to input data are made internal to the computer only; 
therefore, the user should make note of modifications so that he may make 
appropriate changes in the physical deck. 


OPERATIONAL INSTRUCTIONS 


The interactive NASTRAN program is housed on a data cell and requires 
no physical tapes unless the user wishes to save the plot vector file for 
permanent hard copies. The EDIT program is also housed on a data cell. 


^Langley Research Center Computer Programing Manual, Vol. II, Section 3.6. 
It 

Langley Research Center Simulation Manual, Section 2221.1. 
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1. Deck Setup Col . 68 Col . 78 

JOB X 

USER, X 

FETCH (C1103, XXXX, BINARY, EDIT) XXXX = data cell X 

LOAD (EDIT) X 

EXECUTE (BLOCKCC) X 

COMMENT. X 

COMMENT. END CONTROL BLOCK X 

REQUEST, CRTTPE, CD. PLEASE ASSIGN XX XX » CRT No. 


FETCH (D3T90, XXXX, BINARY, PREFl) XXXX » data cell 
NORFL. 

LINECNT (10000) 

PREFl. CATLOG (PREF) 

COMMENT. END SETUP BLOCK 
PREF. 

REWIND (SAVPLT) 

COPYB r (SAVPLT, TEMP) Required if hard copy plots desired 
BKS (TEMP, 1) 

LOAD (EDIT) 

COUtENT. END EXECUTE BLOCK 

FETCH (P0077, XXXX, BINARY, DDIPRO) DDI, 80 Postprocessor Required for 

hard copy for 

REWIND (T1MP) plots 

REWIND (SAVPLT) 

DDIPRO (INITIALS, BLDG. NO., Division initials, zero) 

COMMENT. BH) STOP BLOCK 
EXIT. 
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Deck Setup (continued) 


Col. 68 


Col. 78 


LOAD (EXIT) 

EXECUTE (RESTART) 

COMMENT. END RESTART BLOCK 
End of record card 
NASTRAN data deck 
End of file card 


2. Input 

Input data are the sane as for a regular NASTRAN run with the exception 
that the user must request NASTPLT output on the PLOTTER case control card. 

3. Output 

The Program produces the normal NASTRAN printed output from the Preface 
area of the program and from the structural plot module. The graphic repre- 
sentation of the undeformed structure is displayed on the CRT as it is being 
generated. Plots may be recorded for obtaining hard copies on one of the 
available plotters by depressing the appropriate function key on the CRT 
console. The proper postprocessor control cards must have been included in 
the card deck. 

Since changes are made Internal to the computer only, the user should 
make note of any such modifications so that he can make the appropriate 
changes in the physical deck. 
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APFENRDC A 


NASTRAN ROUTINE LD50 
FOR INTERACTIVE NASTRAN PREPROCESSOR 


FORTRAN Code for Subroutine LD50 


SUBPOUT I N£ L090( SUBSET) 

INTEGER ROC 161 ) 

INTEGER RO 1 (61 ) * R02C100) 

EQUIVALENCE <RO<t).RDl>. (RD <62 ) .R02 ) 

DATA NPTP/AMNPTP/ 

INTEGER IS! (20) 

DATA ISI/I .1 « 1 .1 «l .1 .1 .1 <1*1 .l»l»l»l»l.l»t.l»l.l/ 
DATA RD1 / 


aambcgi* 

A HN PR. 

4HCF4C* 

4 HE - . 

AHCHEC. 

AHKS 1 . 

BAH PlO. 

AHTS u. 

4HM0CK ♦ 

AHORME • 

4 HD ST. 

AMRUCT* 

CAMGP 1 . 

AHGEOM. 

4H1 sGCs 

4H0M2. . 

AH/ GPL. 

AM.EOE. 

oah.cst. 

AHM . BG . 

4HPDT ♦ • 

AMSIL/* 

AHV.N. . 

AHLUSE. 

EAH3/V* * 

4HN.N0. 

4HGP0T * 

AH S . 

AHSAVE. 

AM LUS. 

pahgeom. 

4H2.EQ. 

4MCXI N, 

4H/ECT. 

AH S . 


i ahlaqe . 

AML Wt. 

4H ft • 




2AMPLTS. 

AHCT p. 

4HC0Bb ♦ 




6AHE0EX. 

AHlN.E. 

4NCT/P* 

AHLTSE. 

AMTX.P. 

amltpa. 

ZAM.ELS. 

AHETS / 





DATA RD2/ 





H4M/V.N. 

AH.NS1 . 

4HU/V* « 

4HN. JU. 

AMMPPL. 

A HOT S* 

I4ML.JU. 

AMMPPL. 

4 HOT ft* 

AHPRTM. 

i *SG P. 

AHLTSE. 

J4HSCTV. 

AMAl /* 

4H/V «N • 

AM. PLT . 

ahplg/. 

AMC.N. . 

KAMILE/* 

amc.n. 

4H0 ft • 

AHSAVE. 

AH PLT. 

AHPLG* . 

LAHCONO. 

AM PI .. 

4HJUHP9 

AMPLOT. 

AM 9 . 

MPLOT • 

mahgpse. 

AMTS.E* 

4HL5CT • 

AMS.CA. 

AMSECC. 

AH.BGP. 

NAMk.SI* 

AML. »/« 

4MPC0T. 

4HX1/V. 

AM.N.N. 

AMSIL/. 

9AMT/V*. 

AMN.JU. 

4HMPPL« 

AMOT/V. 

AM.N.P. 

amltpl. 

pahile * 

AMA . 

4HSAVC9 

AM JUM. 

A HP PLO. 

amt.pl. 

OAMLE •. 

AHPRTM. 

4MSG Ps 

4HL0TX. 

AM1//S. 


IAHCONO. 

AM W2. . 

4HPF 1L t 

A) E S * 

AM JUMP. 

AM PI . 

2 AML W2. 

AMS . 

4HACPT • 

AH Ml*. 

AMI 00 . 

AMS . 

3AHLA0E. 

AML PI . 

4H* • 




raheno * 

AMS . 

4N * 

AM . 

AM • 

AM / 


AMNPUT. 


4M ANOt 
AHA • 
AHGPOT. 
A HN .12. 
AHGP2 « 


AHSETS. 


AHSAVE. 
AMTX//. 
AHI/v'.. 
AHPF1L. 
AM PLT. 

ahot.e. 

AHV.N. • 
AHG/Vt « 

amtflg. 

AHS 


AH N$ I « 
AH A • 
4HN.PF. 
A HE A « 
4MPAR. . 
4H0EX 1 • 
AHLUSE. 
ahn.pf. 

AM.PFI « 
AML ABE • 


CALL WRITE CNPTP.ro. 160. 1 ) 
call WRITE <M>TP. 20.1.0) 
CALL WRITE I^TP. 1.1.0) 
call WRITE CNPTP.1S1.20.0) 
CALL WRITE CNPTP.O. 1.0) 
return 
END 


LDS00002 

LD900003 

ldsooooa 

L 090000S 
L0900006 
L090000? 
L090000B 
L0900009 
LD90001 0 
L 090001 1 
L090001 2 
L0900013 

L090001 A 

L090001S 

L09000 1 6 

L0900017 

L090001B 

L0900019 

L 0900020 

LD900021 

L0900022 

L 09 0002 3 

L090002A 

LOS00025 

LD900026 

L0900027 

L090002B 

L 09 00029 

L0S00030 

L0900031 

L0900032 

LD900033 

L090003* 

LD900039 

L 09000 36 

l 337 

V 030 

Lw-1^3039 

L 09 000 A 1 

L09000A2 
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NASTRAN Source Program Compilation 


OMAP-OMAP 

NO. 

1 BEGIN 

2 GP1 


3 SAVE 

4 GP2 

5 LABEL 

6 PLTSET 

7 SAVE 

a PRTMSG 
9 SETVAL 
10 SAVE 
It CONO 

12 PLOT 

13 SAVE 

14 PRTMSG 
19 CONO 

16 JUMP 

17 LABEL 
IB rept 
19 LABEL 
CO ENO 


INSTRUCTION 

PREFAi E - CHECKS INPUT ANO PLOTS UNOEFORMEO STRUCTURE • 

GEOM1 . GE0M2 ./GPL.EQEX IN.GPOT *CSTM .8GP0T «S IL/V.N .LUSET /C «N . 1 23/' 
V.N.NOGPOT » 

LUSET • 

GE0M2 *EOEX I N/ECT A 

V. • 

PCOB.EOCXlN.ECT/PLTSETX.PLTPAR.GPSETS.ELSETS /V.N.NSlL/V.N. 
JUMPPL T A 

NSIL. JUMPPLOT A 

PLTSETX// S 

//V.N.PLTFLG/C.N. 1/V.n. PF ILE/C.N.O S 

pltflg.pfile A 

PI. JUMPPLOT S 

PLTPAR.GPSETS.ELSETS. CASECC.BGPOT .EOEXlN.S IL . ./PL0TX1/V.N.NS1L/ 

V. N.LUSET/V.N.JUMPPLOT/V.N.PLTFLG/V.N.PFILE 6 

JUMPPL0T.PLTFL6.PFILE » 

PL0TX1//S 
M2.PF1LE » 

PI A 

MCA 

VI. 100 A 

PI A 
A 
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9% ix 
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APPENDIX B 

FORTRAN CODED SUBROUTINE CRTPLOT 


SUBROUTINE CRTPLOT 

common/spec/nv i em ♦ c alpha * cbe t a ♦ cgamm a 

COMMON/CRT/NCRT 
DIMENSION A ( 30 ) • I D ( 2 ) 

DIMENSION IANS ( 30 ) 

DIMENSION STRING (60 ) 

INTEGER PC*CI*TEN 

DATA 1 0/3MMMS « QHB I N 2058/ 

DATA STRING/ 

1 1H0* 1HI •IH2«lH3UH4t 1H5 * 1 H6 • 1 H7 ♦ 1 M8 * 1 H9 « l MA « I HB * 1HC • 1 HO • 1 KE * 1 HF 

2 « 1HG* 1 HH* 1H I • IHJ » 1 HK « IHL • l HM* 1 HN • 1H0 ♦ I HP • | HQ« I HR • 1 HS « 1 HT « 1 HU * 1 HV 
3* lHM*lHXf lHY«IHZ*lH(*lH)*lH+*IH- t lH*«IH/»lH**lH** 1 H . ♦ 1 HS • 1 H- f 1 H 
4 « 1240/ 

EQUIVALENCE CANSU 1*IS2)« ( IANS(2) * IS3) « ( I AnS ( 3 ) • I S4 > • (IANS(4)« 

1IR0), ( IANS(5)«1R1)« (IANS<6)«IR2)t ( I ANS (7 ) ♦ IR3 ) * ( I ANS < 8 1 • IR4 ) « 

2 ( I ANS <9 ) «C1 } % ( IANS( 10) *PC) • C l ANSI 1 1 1 • lU2)t ( I ANS ( 1 2 ) . I U3 ) • 

3( I ANS< 13) * IU4 ) . ( lANSv 14 )« ITO)« ( IANS (15) « I T 1 ) « ( I ANS ( 16 ) » I T2 ) * 

4 ( I ANS (17)«1T3)« ( IANS( 18) • IT4)« ( I AnS ( 1 9 ) % ! SO ) « ( IANS (20) « 1S1)« 

5( IANS (29) * IU0 ) • ( I ANS (30) • lUl ) 


CRT0002 
CRT0003 
CRT0004 
CRT0005 
CRT0006 
CRT0007 
CRT0008 
CRT0009 
CRTOOIO 
CRT001 1 
CRT0012 
CRT0013 
CRT0014 
CRT0015 
CRT0016 
CRT0017 
CRT00I8 
CRT0019 
CRT0020 


NVIEW * 0 
NCRT*0 

nfirst » 0 

REMINO 4 
WRITE (6*1 00 1 ) 

1001 FORMAT! 1H1) 

TEN « 10 
MASK * 778 
CALL CDC 250 
CALL CALPLT (0*0*3) 

CALL SMESAGE ( 1 «3SHBEGtN EXECUTION OF CRT PLOT PR0GRAM*35) 

call params 

CALL PARAMS ( 5L ALPHA « C ALPHA « 4L8ET A • CBETA * 5LGAMM A • CGAMMA ) 
800 READ (4) A 

IF (EOF 1 4 ) 99 *10 
10 CONTINUE 

DO 1 1*100*3 

L • 1+2 
K « 0 

DO 15 N* 1 *L 
DO 15 J"1 «I0 
K» K+l 

IF ( J«EQ« 1 ) GO TO 17 
CALL RSHFT ( A (N ) * 6 ) 

17 IANS'K) - ( A (N) •AND# MASK) 

15 CONTINUE 

IF (PC*GT «6 ) PC»PC-10 

IF (PC*EQ*0*ORtPC*EQ«2*OR«PC *EQ*3 ) GO TO 300 
P • TEN* (TEN* (TEN* (TEN* l R4 +1R3)+1R2)+IR1)+IR0 
S • TEN* (TEN* (TEN* (TEN# I S4 ♦ I S3 1 + IS2 )+lSl>+ ISO 
T • TEN* (TEN* (TEN* (TEN* I T4 ♦ IT3 >♦ IT2 ) + ITl >♦ ITO 
U « TEN* (TEN* (TEN* (TEN# I U4 + IU3 1 + IU2 )♦ I Ul )♦ I UO 
300 NC ■ PC* 1 

GO TO (401 « 402 *403*404 * 405* 406*406 ) • NC 
C* 

C* PLOT COMMAND IS NO OPERATION 
C* 

401 GO TO 1 

C* 

C* PLOT COMMAND IS START NEW PLOT 


CRT0021 
CRT0022 
CRT0023 
CRT0024 
CRT0025 
CRT 0026 
CRT0027 
CRT0028 
CRT0029 
CRT0030 
CRT0031 
CRT0032 
CRT0033 
CRT0034 
CRT0035 
CRT0036 
CRT0037 

CRT 0038 
CRT0039 
CRT0040 
CRT0041 
CRT0042 
CRT0043 
CRT0044 
CRT004S 
CRT0046 
CRT0047 
CRT0046 
CRT0049 
CRT0050 
CRT0051 
CRT0052 
CRT0053 
CRT0054 
CRT0055 
CRT0056 
CRT0057 
CRT005B 
CRT00S9 
CRT0060 




W. 
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c* 



CRT0061 

402 

PLOT ID « R 


CRT0062 


XMIN > 0.0 


CRT0063 


YM IN ■ 0.0 


CRT0064 


XMAX * S 


CRT0065 


YMAx ■ T 


CRT0066 


XSCAlE • 10.0/XMAX 


CRT0067 


YSCALE ■ 10.0/YMAX 


CRTO068 


60 TO 1 


CRT0069 

c* 



CRT0070 

C* PLOT COMPAND IS SELECT CAMERA 


CRT0071 

c* 



CRT0072 

403 

60 TO 1 


CRT 0073 

C* 



CRTOO 74 

C* PLOT COMMAND IS SKIP TO A NL'W FRAME 


CRT0Q75 

c* 



CRT0076 

404 

CONT I NOE 


CRT0077 


IFINFIRST.EQ.O) SO TO 4041 


CRTOO 78 


CALL C ALPLT <0.0. -3 ) 


CRT0079 


CALL SMESAGEU .32HT0 RECORD PLOT. DEPRESS FN KEY 6*32) 

CRT0080 


CALL SMESAGEU .34MTO CLEAR PICTURE. 

DEPRESS FN KEY 2.34) 

CRT0081 


CALL SMESASE 1 1 . 37HT0 GO TO NEXT FRAME ♦ DEPRESS FN KEY 3.37) 

CRT0082 


CALL CALPLTOJ.O.O.-3) 


CRT0083 


CALL SMESAGEU .30HHIT KEY 45 TO END 

PLOT PROGRAM .30 I 

CRTOO 84 


CALL SMESAGEU .39HHIT KEY 47 TO RE-DISPLAy PREVIOUS PLOTS. 39) 

CRT0085 


CALL SMESAGEU .38HH IT ANY OTHER KEY 

TO CONTINUE PLOTTING. 38) 

CRTOO 86 


CALL NEXT(N) 


CRT0087 


IFCN.EQ.45) GO TO 99 


CRTOO 88 


IF (N.EQ.47 ) GO TO 199 


CRT0089 


60 TO 1 


CRT0090 

4041 

CONTINUE 


CRT0091 


NFIRST • 1 


CRT0092 


GO TO I 


CRT0093 

C* 



CRT0094 

C* PLOT COMMANO IS TYPE A CHARACTER 


CRTOO 95 

c* 



CRT0096 

405 

X ■ R*XSCALE 


CRT0097 


Y » S*YSCALE 


CRT0098 


CALL NOTATE <X.Y. • 1 . STRING! C I >.0*0*1 ) 


CRT0099 


GO TO 1 


CRT0100 

C* 



CRTOlOt 

C« PLOT COMMAND IS DRAW A LINE OR AN AXIS* 


CRT0102 

C* 



CRT0103 

406 

CONTINUE 


CRT0104 


XI • R4XSCALE 


CRT0103 


Y1 ■ S* YSCALE 


CRT0106 


X2 • T4XSCALE 


CRT0107 


YL • U4YSCALE 


CRT0108 


CALL CALPLTIXt .Yl .3) 


CRT0109 


CALL CALPLTIX2.Y2.2) 


CRTOl 10 

406* 

00 TO l 


CRT01 1 I 

1 

CONTINUE 


CRTOl 12 


GO TO .00 


CRTOl 13 

C* 



CRTOl 14 

c. Re-o i splay pmevious plots 


CRTOl 15 

c* 



CRTOl 16 

199 

RE VI NO 4 


CRTOl 17 


GO TO .00 


CRTOl 18 

C* 



CRTOl 19 

C* KNO OP PLOT TAPE 


CRT01E0 
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C* CRT0121 

99 CONTINUE CRTOl 22 

CALL CALPLT < 0 <0*999 ) CRT0123 

CALL SMESAGEU .20HEN0 OF FILE ON TAPE4.90) CRT0124 

REWIND 4 CRT0I25 

C***»t*tH* CRT0126 

C BREAK POINT IN PROGRAM TO ALLOW OPERATOR TO DISPLAY CRT0127 

C '.NO/OR CHANGE THE CURRENTLY ESTABLISHED VIEW ANGLE. CRT012B 

C6SSSSSSSSS CRTOl 29 

CALL SMESAGEU *50HT0 DISPLAY AND/OR CHANGE THE CURRENTLY ESTABLISH CRT0130 
1 ED <50 > CRTOl 31 

CALL SMESAGEU ,34HV I EW ANGLE*»AlPHA,BETA ANO GAMMA**, 341 CRTOl 32 

CALL SMESAGEU .43HAL TER THE APPROPIATE ANGLE ANO PRESS KEY 49,43) CRT0133 

CALL NEXT < NK 1 CRTOl 34 

IF(nk*NE, 49) GO TO 499 CRTOl 35 

NVIEW ■ 1 CRTOl 36 

NCRT « 2 CRTOl 37 

499 WR I T£ < 6 « 4999 > NV 1EW ,NCRT ,NK , CALPHA • CSET A , C GAMMA CRTOl 38 

4999 FORMAT < 12H0*****NVIEW* 14 ,7H NCRT«I4,5H NK-I4/ CRT0139 

A10HO»*CALPHA>E20.8,8H CBETA-E20 .8. 9H CGAMMA*E20 .8 ) CRT0140 

RETURN CRTOl 41 

END CRTOl 42 


f 

J 

i 

i' 


i 

i 


i 







LINKAGE ELI'POR CONTROL CAKES FOP. 
INTERACTIVE NASTRAN PREPROCESSOR 


LINKEDI 
PARAM ( 
LIBRARY 
LINK 0 
RENAME 
RENAME 
RENAME 
RENAME 
RENAME 
RENAME 
RENAME 
RENAME 
RENAME 
RENAME 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUDE 
INCLUOE 
INCLUDE 
INCLUOE 
INCLUDE 
INCLUDE 
INCLUDE 
INSERT 
INSERT 
INSERT 
ENTRY 
END 


XCORSZI 


T LET • OUTF I LEaNAST ( T J « PAR AM ( 4 ) «20 . PARAM < 5 ) »50 . P ARAM ( 6 ) >6000 • 
2 )«]200 

NAsTOBJ/KKS/BNFILE/XCAL 

APACTGR ■ ABSENT. 

LABRT « ABSENT. 

GATOR « ABSENT. 

RECOVRY « RETURN ** RCV NOT AVAILABLE AT CDC DATA CENTER 

XWRITEI I06600I a WRITEX » BLAST I/O FEATURE * 

XREAD I 106600) a REAOX * BLAST I/O FEATURE * 

SYSTEM a SYSTEM. 

PEXIT a L 1NK20. 

MSGWRT a LINK20. 

RWUNLO « RETURN 

NAST OBJ ( G I NO « XCORSZ) 

WWS I NASTRAN) 

VVSIBLKOATAITIME) > 

N A ST OB J (NASTRAN .BLKDATA (TIME). BLKDAT A ( G I N066 ) . CONMSG > 
NASTOBJ( 106600, DUMP. RETURN) 

N A STOB J ( XEOT . TMTOGO , WRTTRL .RDTRL ) 

NASTOB J ( WRTTRLZ . MESAGE . FNAME ) 

NASTOB J ( OPNCOR « WRT COR .RDCOR . OPNCORZ .PRELOC . LOCATE .PRELOCZ ) 
NA ST 03 J ( GOPEN «F RE AD » CLSTAB . SSWTCK ) 

NASTOBJ (DS IGN ) * FIX FOR 0 ARGUMENTS 

wws<blkdata(spec) ) 

VWS<8LK0ATA(CRT)) 

CRT 

SYSTEM.GIN0X.TIME.GIN066 
ZBLPKX • ZNTPKX .packx .unpakx 
NASTRAN 


LKE00002 
LKE00003 
LKED0004 
LKED0005 
LKE00006 
LKED0007 
LKEDOOOB 
LKED0009 
LKE00010 
LKEOOO 1 I 
LKEDOO 1 2 
LKEOOO 13 
LKEDOO 1 4 
LKEDOO 1 5 
LKEOOO 16 
LKEOOO 1 7 
LKEDOO 18 
LKEOOO 19 
LKE00020 
LKE00021 
LKE00022 
LKEDOO 2 3 
LKED0024 
LKED002S 
LKE00026 
LKED0027 
LKED002B 
LKED0029 
LKE 00030 
LKED0031 
LKE00032 


LINK l 

RENAME corsz a XCORSZ 

RENAME NTRANaDUMP • 1108 DECK ONLY 

RENAME SEARCHaOuMP * NOT USEO ON THE 6400/6600 

RENAME SYSTEM a SYSTEM. • RENAME THE CDC SYSTEM ROUTINE CALLS 
RENAME PEXIT > L1NK20. 

RENAME SEMTRN ■ RETURN 


RENAME 

RENAME 

RENAME 

RENAME 

RENAME 

RENAME 

RENAME 

RENAME 

RENAME 

RENAME 

RENAME 

RENAME 

RENAME 

RENAME 

RENAME 

RENAME 


a XORF 

LD90 

LDSO 

LOSO 

LDSO 

LDSO 

LOSO 

LDSO 

LDSO 

LOSO 

LDSO 

LOSO 

LDSO 

LDSO 

• LINK20. 
a LINK20. 


LKE00033 
LKEOOO 34 
LKE00035 
LKEDOO 36 
LKE00037 
LKEC 38 
LKE DC 0 39 
LKE00040 
LKE00041 
LKED0042 
LKE00043 
LKE00044 
LKE0004S 
LKE00046 
LKED0047 
LKE00048 
LKE 0004 9 
LKEOOOSO 
LKEOOOS1 
LKE 000 S2 
LKEO0OS3 
LKEOOO 94 
LKE00099 


n 


I 



RENAME 

L047 • L INK20* 

LKE00056 

RENAME 

LD 48 ■ LINK20. 

LKEOOOS7 

RENAME 

LD49 r L INK20 • 

LKED00S8 

RENAME 

L051 ■ LINK20. 

LKED00S9 

RENAME 1 

BUG * RETURN 

LKED0060 

RENAME 

TTlPGE * RETURN 

LKED006 1 

INCLUDE 

WWS ( XSEM1 ) 

LKED0062 

INCLUDE 

NASTOBJIXSEMI .TAPS I T .PAGE .PAGE 1 .PAGE2 .PAGEZZZ ) 

LKED0063 

include 

NASTOBJ(BLKOATAIXSRTBD) t 

LKED0064 

INSERT 

xsrtbd.zzzpage. blank,. 

LKED0065 

overlay 

Al 

LKED0066 

INCLUDE 

NA STOB J ( MSGwRT . USRMSG > 

LKED0067 

overlay 

Al 

LKED0068 

INCLUDE 

MWS(SMESAGE) 

LKED0069 

INCLUDE 

WWS ( CDC250 .NEXT .PLT250 ) 

LKED0070 

1 NCLUDE 

WWS(LODTBl) 

LKE00071 

INCLUDE 

BNP I LE ( CDC250 * 0EC003 . OECOOA . HOGWASH . LODTBL . NEXT . PLT250 ) 

LKE00072 

include 

BNF I LE C WARTHOG . SCREEN ) 

LKE00073 

INCLUDE 

WWS (PLTOOO .KEYBORD .CRT250 > 

LKED0074 

INCLUDE 

WWS • SPCMAT > 

LKED0075 

INCLUDE 

WWS<KG1FR> 

LKE00076 

INCLUDE 

xcaucalplt ) 

LKED0077 

INCLUDE 

WWS < ENCOD2 . RSHFT . ADVERSE . SPACK • SLOCATE . CALPLT . UNPK . CNTRLN ) 

LKED0078 

INCLUDE 

NWS < CREATEF .DECOD 1 .DEC0D2. OROUTE . EXOR . 1 03. NOTATE .PLOTS* ) 

LKE00079 

INCLUDE 

WWS < PLT9999 . S AVPLOT . SC AN . STRC ALL . TRUNCL » WHERE . XM I T . LOADADR ) 

LKED0080 

INCLUOE 

WWSOLKDATA (GRAPHNO) ) 

LKED0081 

INSERT GRAPHNO .LANGLEY .TRIAL. VPARMS 

LKE00082 

overlay 

Al 

LKEDOO03 

INCLUDE 

WWS(BTSTRP) 

LKE00084 

INCLUDE 

NASTOB J ( 8TSTRP . ENDSYSZ . ENDSYS . BGNSYS ) 

LKE00085 

INSERT 

ZENOSYS 

LKE00086 

overlay 

endsss 

LKE00087 

INSERT 

endsss 

LKED0088 

OVERLAY 

Al 

LKED0089 

INCLUDE 

NASTOB J ( XPOLCK . XF I LPS . XPLEOK . XPOLCKZ ) 

LKE000«0 

OVERLAY 

XIX 

LKED0091 

INCLUDE 

NASTOBJIXCEI .XPURGE) 

LKE J0092 

OVERLAY 

XIX 

LKE00093 

INCLUDE 

NASTOB J (BLKDAT A < XSFA 1 J , XSFA . XSOSGN . XCLE AN . XPUNP . XOPH > 

LKED0094 

INSERT 

XSFA1 .ZXPOLCK 

LKED0095 

OVERLAY 

esfa 

LKED0096 

insert 

ESFA 

LKE00097 

overlay 

At 

LKE0009B 

INCLUDE 

NASTOBJ(BLKDATA( IFPXO) .BLKOATAI 1FPX1 ) .BLKDATAIUMFZZ2 ) .SEMI NT) 

LKED0099 

INSERT 

IFPXO.XOLDPT. IFPXI .UMFZZZ 

LKED0100 

overlay 

DD 

LKED0101 

INCLUDE 

NASTOBJ (XRCARD ) 

LKED0102 

overlay 

0 

LKE00103 

INCLUDE 

NASTOB J ( GNF 1 AT , XCSA .XRGOFM , XSBSET > 

LKE00104 

INCLUDE 

NA 5 TOBJ (WALT1M) 

LKE 00 1 OS 

overlay 

El 

LKE00106 

INSERT 

XCSABF 

LKE00107 

overlay 

El 

LKE001 08 

INCLUDE 

WWS<LDSO) 

LKED01 09 

overlay 

D 

LKE 001 10 

INCLUDE 

NASTOBJ(SORT) 

LKE001 1 1 

overlay 

DE 

LKE DO 1 >2 


t* 
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INCLUDE NASTOBJ IBLKDATA I IFPl A 1 *FNOPLT ) 

INCLUDE WWSOFPIDl 

INCLUDE NASTOBUCIFPI « IFPIC.IFP10. IFP1E. 1FP1F. IFPlGtSVSRT > 

INSERT SETUP* IFPl A 
OVERLAY IFPIX 
INSERT IFPIX 
OVERLAY DE 

INCLUDE NASTOBJI IFPAB. I FP4 C « IFP4E* IFP4F. 1 FP4G « B 1 SRCH > 

OVERLAY IFP45 

INCLUDE NAST0BJUFP4*IFP4A> 

OVERLAY IFP4ZZ 
INSERT IFP4ZZ 
OVERLAY IFP45 

INCLUDE NASTOBJI IFP5. IFP5A l 
OVERLAY IFPSZZ 
INSERT IFPSZZ 

overlay d 

INCLUDE NASTOBJI XFA0J1 *XRECPS*XFAOJ*CROFLG«RPAGE*XBCOBI *EXT 1NT * INITCO) 
INCLUDE NASTOBJIXPRETY. 1NTEXT.XRECPSZ* ISFTJ 
INSERT ZxRECPS 

overlay umf 

INCLUDE NASTOBJIXSORT) 
overlay ESORT 
INSERT ESORT 

overlay umf 

INCLUDE NASTOBJIUMFEOTl 

overlay umfxxx 

INSERT UMFXXX 
OVERLAY 0 

I NCLUDE NA STOB J I SLKOAT A I XGP 1 2 t « 3LKDAT A IXGPIC ) « XGP I . X GP I OG « XGP I MW I 
INCLUDE NASTOBJI XGP I OGZ 1 

INSERT xGPtC«XGPt0*XGPI2«XGPI3«XGPI4«XGPlS»XGPl6*XGPI7*XGP!6*XGPI2X 
INSERT ZXGPIOG 
OVERLAY E 

INCLUDE NASTOBJI BLKDA T A I XLKSPC I « XGP 1 BS « MPLPRT ) 

INSERT XLKSPC 

OVERLAY XGP II * THIS MUST BE UNDER LONGEST SEGMENT UNDER OVERLAY E 
INSERT XGP I I 
OVERLAY E 

INCLUDE NASTOBJIXFLORD.XFLOEFI 
OVERLAY E 

INCLUDE NASTOBJ IOSCOMP) 

OVERLAY E 

I NCLUDE NASTOBJI XOSGEN • XLNKHQ « X t PFL • XPARAM « XSCNDM I 
OVERLAY DO 

INCLUDE NASTOBJI IFPDCO I 
INCLUDE NASTOBJ IflLKOATA I IFPOTA | ) 

INSERT IFPOTA 
OVERLAY ODD 

I NCLUDE NASTOBJ (RCARO«tFP I 

INCLUDE NASTOBJ (BlKDAT A ll FPX2 1 * BLKDAT Alt FPX3 ) « BLKD A T A ( 1FPX4) > 

INCLUDE NASTOBJ IBLKDATA I IFPXS ) .BLKDATA I IFPX6 1 «BUDATA I IFPX7) I 
INSERT IFPX2* IFPX3. IFPX4* IFPXS* IFPX6* IFPX7 
OVERLAY DOl 

INCLUDE NASTOBJI IFS1P) 


LKEOOU3 
LKED0114 
LKEOOUS 
LKEOO H 6 
LKE001 17 
LKC001 IB 
LKEOO 119 
LKED0120 
LKE00121 
LKEOO 122 
LKE001 23 
LKEOO 124 
LKEOO 12B 
LKEOO 126 
LKEOO! 27 
LKEOO 126 
LKEOO 129 
LKEOO 130 
LKE001 31 
LKEOO I 32 
LKEOO 133 
LKED01 34 
LKEOO 1 35 
LKEOO 136 
LKEOO 137 
LKED013B 
LKEOO 139 
LKEOO 140 
LKED0141 
LKEOO 142 
LKEOO 143 
LKEOO 144 
LKEOO 14S 
LKEOO 146 
LKEOO 147 
LKEOO 146 
LKEOO 149 
LKED01 50 
LKE001S1 
LKEOO 152 
LKEOO 1 S3 
LKEOO 1S4 
LKEOO 1 SB 
LKEOO 1 96 
LKEOO 157 
LKEOO l SB 
LKEOO 1S9 
LKEOO 160 
LKEOO 1 61 
LKEOO 162 
LKEOO 163 
LKEOO 164 
LKEOO l 69 
LKEOO 166 
LKEOO t 67 
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overlay ooi 

1NCLU0E N*sTOB J ( IFS2P ) 

OVERLAY ifpxx 
INSERT IFPXX 
OVERLAY 001 

INCLUDE NASTOBJl IFS3P) 

OVERLAY 0D1 

INCLUDE NASTOBJl 1FS4P) 

OVERLAY 001 

INCLUDE NASTOBJl IFS5P) 

OVERLAY 000 

INCLUDE NASTOBJlBLKDATA 1IFP3801 ♦ 1FP3. IFP3B) 
INSERT IFP3BD. IFP3LV 
OVERLAY IFP3ZZ 
INSERT IFP3ZZ 


ENTRY 
END . 


XSEMl 


LKE0016S 
LKEDOl 69 
LKS00170 
LKEDOl 71 
LKEDOl 72 
LKEDOl 73 
LKE001 74 
LKE00175 
LKEDOl 76 
LKEDOl 77 
LKEDOl 78 
LKEDOl 79 
LKEDOl 80 
LKE00181 
LKEDOl 82 
LKEDOl 83 
LKE001 84 


LINK 2 LKEDOl 85 
RENAME CORSZ « XCORSZ LKEDOl 86 
RENAME NTRAN«DUMP S 1108 DECK ONLY LKEDOl 87 
RENAME SEARCH-DUMP S NOT USED ON THE 6400/6600 LKE00188 
RENAME PEXIT ■ LINK20. LKEDOl 89 
RENAME BTSTRP • RETURN LKEDOl 90 

rename system « system* lkeooi9i 

RENAME SETC « RETURN LKEDOl 92 
RENAME TA 1 0 » RETURN LKEDOl 93 
RENAME TAlE - RETURN LKED0194 
RENAME TAPSM1 ■ ABSENT. LKEDOl 95 
RENAME OPMESG » ABSENT. LKEDOl 96 
INCLUDE WWS IXSEM2 > LKED0197 
INCLUDE NAST0BJ1XSEM2.TAPB1T.INTLST) LKED0198 
INCLUDE NASTOBJIRDMODE.RDMOOX.RDMOOXZ) LKE00199 
INCLUDE NASTOBJ(RDMODY.ROWORD) LKE00200 
insert zrdmodx. blank*. lkedozoi 
OVERLAY one LKE00202 
INCLUDE NASTOBJl PAGE. PAGE 1 .PAGE2.PAGEZZZ) LKE00203 
INSERT ZZZRAGE LKE00204 
OVERLAY A LKED0205 
INCLUDE NASTOBJIMSGWRT.USRMSGI LKE00206 
OVERLAY A LKE00207 
INCLUOE WWS < SMESAGE 1 LKE00206 
INCLUDE WWS * LODTBl ) LKED0209 
INCLUOE WWS < CDC250 . NEXT .PLT250 1 LKED0210 
I NCLU0E BNF I LE 1 COC 250 • 0ECO03 « 0EC004 . HOGWASH . LODTBL . NEXT • PLT2S0 ) LKE002 1 1 
INCLUDE BNF ILE (WARTHOG. SCREEN! LKE00212 
INCLUDE WWS < PLTOQO .KEYBORD .CRT250 I LKED3213 
INCLUOE WWS<SPCMAT ) LKED0214 
INCLUOE WWSIKGlFR) LKED0215 
INCLUOE XCALICALPLT) LKE00216 
1 NCLUDE WWS < ENC0D2 . RSHFT • ADVERSE . SPACK . SLOCATE . CALPLT . UNPK . CNTRLN ) LKE002 1 7 
INCLUOE WWS * CRE ATEF . DECOD 1 .0EC0D2 « OROUTE . EXOR .103. NOT ATE .PLOTSM 1 LKE00218 
I NCLUDE VMS ( PUT 9999 • SAVPLOT . SC AN . STRCALL . TRUNCL • WHERE . XM i T • LOAD AOR 1 LKED02 1 9 
INCLUOE WWSIPARAMS) LKE00220 



1 NCLUDE WWS<CRTPLOT) LKE00221 
INCLUDE WW$ (BLKOATA (GRAPHNO ) ) LKED0222 
INSERT GRAPHNO«LAnGLFY. TRIAL. VPARMS LKED0223 
OVERLAY A LKE00224 
INCLUDE NAsTOSJ(ENOSYSZ*ENOSYS.BGNSYS ) LKE00225 
INSERT ZENOSYS LKED0226 
OVERLAY ENDSSS LKED0227 
INSERT ENOSSS LKE00228 
OVERLAY A LKED0229 
INCLUDE NASTOBJ CQPARAN) LKED0230 
OVERLAY A LKE00231 
INCLUDE NASTOBJ(XSAVE) LKE00232 
OVERLAY A LKED0Z33 
INCLUDE NASTOBJIXCEI ) LKED0234 
OVERLAY A LKE00235 
INCLUDE NASTOBJ (XCHK J LKE00236 
OVERLAY A LKED0237 
INCLUDE NASTOBJIBLKDATA (XSFAI > «XPURGE« XPUNP.XDPH) LKE00238 
I NCLUDE NASTOBJ ( XPOLCK « XF I t_PS « XPLEQK • XPOLCKZ « XSFA • XCLEAN » XSOSGN • GNF 1ST) LKE00239 
INSERT ZXPOLCK. XSFAI LKED0240 
OVERLAY ESFA LKE00241 
INSERT ESFA LKE00242 
OVERLAY A LKE00243 
INCLUDE NASTOBJ < TABPT .TABPRT ) LKED0244 
OVERLAY TABPRX LKE0024B 
INSERT TABPRX LKED0247 
OVERLAY A LKE00248 
INCLUDE NASTOBJ (PRTPRM) LKED0249 
OVERLAY A LKEOO2S0 
INCLUDE NASTOBJ (BLKOATA < INPUTA, IuNION. INPUT) LKE00251 
INSERT INPUTA LKE00252 
OVERLAY INPUTX LKED02S3 
INSERT INPUTX LKED0254 
OVERLAY A LKED02S5 
INCLUDE NASTOBJ(EJECT.WRTMSG.PRTMSG) LKED02S6 
OVERLAY XXPWSG LKE002S7 
INSERT XXPMSG LKED02S8 
OVERLAY A LKFD0259 
INCLUDE NAST0BJ( INPTT1) LKED0260 
INCLUDE NASTOBJ(TPSWIT«FORFIL> LKED026I 
OVERLAY INPlXX LKED0262 
INSERT INPlXX LKED0263 
OVERLAY A LKE 00264 
INCLUDE NASTOBJ! 1NPTT2) LKE00265 
OVERLAY INR2XX LKE 00 268 
INSERT INR2XX LKE 00267 
OVERLAY A LKE DO 2 68 
I NCLUDE NASTOBJ ( BLKOATA ( CHAR94 ) . Ax l S . DRWCHR • I DP*_CT * L 1 NE . PLTSET < PR I NT ) LKE00269 
INCLUDE WWS'SGlNOZZ) LKE00270 
INCLUDE NASTOBJ ( SCLOSE » SELCAM . SEOF . SG I NOZZ . SKPFRM « SOPEN* STPLOT « SWR I TE I LKED0271 
INCLUDE NAsTOBJ(SYMBOL.TIPE*TYPINT.FNOPlT) LKED0272 
INSERT CHAR94 < CHRDRW • XXPARM *PLTDA T t SYMBLS » ZZSGINO LKE00273 
OVERLAY ORAW LKE00274 
INCLUDE NASTOBJ(LINE10,TYPE10.VPLT10> LKED027S 
OVERLAY LOnGST LKED0276 
INCLUDE NASTOSJ < OPLOT . DRAW ) LKED0277 
INCLUDE NASTOBJ (ElELBL«F 1ND»FNDSET* GPTLBL.GPTSYM.HEAO* INTVEC ) LKED0278 
INCLUDE WWS I PLOT ) LKE 00279 
t NCLUDE WWS<PROCES> LKE00260 
I NCLUDE NASTOBJ ( M I NNAX • PARAM . PERPEC « PLOT « PL T OPR 'PftOCES • SHAPE * WRTPRT ) LKE 002B 1 
INSERT ORwOAT tRSTXXX LKE 00262 
OVERLAY XXPLOT LKE002B3 
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INSERT 

XXPLOT 

LKED0284 

overlay 

DRAW 

LKED02S5 

INCLUDE 

NASTOBJ (L I NE9 ♦ TYPE9* WPLT9 ) 

LKED0286 

overlay 

ONE 

LKED0287 

INCLUOE 

NASTOBJ (3ETVAL) 

LKED0288 

overlay 

ONE 

LKED0289 

INCLUDE 

NASTOBJ (BLKDATA (GPTA 1 ) «DELSET ) 

LKED0290 

INSERT 

OPT A I 

LKED0291 

overlay 

TAIGPI 

LKED0292 

INCLUDE 

NASTOBJ (SORT) 

LKED0293 

INSERT 

SETUP 

LKE00294 

overlay 

GPXl 

LKED0295 

INCLUDE 

NASTOBJ (GP1 ) 

LKED0296 

overlay 

GPAl 

LKED0297 

INSERT 

GPAl 

LKED0298 

OVERLAY 

GPXl 

LKE00299 

include 

NASTOBJ <GP2) 

LKED0300 

overlay 

GPA2 

LKED030! 

I NSER T 

GPA2 

LKED0302 

overlay 

TAIGPI 

LKED0303 

INCLUDE 

NASTOBJ t COMECT * CNSTRC .DPLTST • SET INP ) 

LKED0304 

OVERLAY 

XXPSET 

LKED0305 

INSERT 

XXPSET 

LKED0306 

overlay 

ONE 

LKED0307 

INCLUDE 

NASTOBJ ( INPTT3) 

LKED0308 

OVERLAY 

ONE 

LKED0309 

INCLUDE 

NASTOBJ ( I NPTT4) 

LKE00310 

ENTRY 

XSE*2 

LKED03I l 

END 


LKE00312 

LINK 20 


LKED0314 

RENAME CORSZ * XCORSZ 

LKE00315 

RENAME APACTGR ■ ABSENT* • REMOVE THIS CARD WHEN RUNNING AT CYBERNETLKED031 6 

rename 

System ■ sy stem. 

LKED03I7 

RENAME 

EXITIPEXIT, * PEXIT66 

LKED03F8 

INCLUOE 

NASTOBJ (PEX I T.MSGWRT.US«MSG«PAGE. PAGE l >PAGE2«PAGEZZZ«PEX 1T66) 

LKED0319 

ENTRY 

PEXIT 

LKED0320 

END 


LKED0321 

ENDLINKS 

LKED03I3 
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